home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Diamond Collection / The Diamond Collection (Software Vault)(Digital Impact).ISO / cdr11 / gedvw105.zip / FLINE.PRG < prev    next >
Text File  |  1995-03-05  |  560b  |  40 lines
  1. *
  2. *    This displays the earliest recorded ancestor in the paternal
  3. *    lineage for current INDI record.
  4. *
  5. *    for GEDView 1.05
  6. *    michael@genealogy.emcee.com - 3 Mar 1995
  7. *
  8. get line
  9. compare $FIELD3 indi
  10. iffailed
  11.     end
  12. :loop
  13.     gosub get-parents
  14.     iffailed
  15.         end
  16.     gosub get-father
  17.     iffailed
  18.         end
  19.     goto loop
  20.  
  21. :get-parents
  22.     get famc
  23.     iffailed
  24.         return 0
  25.     fixpointer #field3
  26.     go fam $FIELD3
  27.     iffailed
  28.         return 0
  29.     return 1
  30.  
  31. :get-father
  32.     get husb
  33.     iffailed
  34.         return 0
  35.     fixpointer #field3
  36.     go indi $FIELD3
  37.     iffailed
  38.         return 0
  39.     return 1
  40.